home *** CD-ROM | disk | FTP | other *** search
/ The Netherlands - A Compact World / The Netherlands.iso / NederlandMX.dxr / Heinz' tekeningen_68_voor H8.ls < prev    next >
Encoding:
Text File  |  2004-06-24  |  681 b   |  32 lines
  1. on H8down
  2.   global naam, daargaanwe, wegaannaar
  3.   if naam = EMPTY then
  4.     naam = "#"
  5.     set the member of sprite 18 to "H8-down"
  6.     set the locH of sprite 18 to 493
  7.     set the locV of sprite 18 to 523
  8.     daargaanwe = 1
  9.     wegaannaar = "8.dir"
  10.   end if
  11. end
  12.  
  13. on H8enter
  14.   global naam
  15.   if naam = EMPTY then
  16.     sprite(176).visibility = 1
  17.     cursor(280)
  18.     set the member of sprite 18 to "H8-enter"
  19.     set the locH of sprite 18 to 485
  20.     set the locV of sprite 18 to 382
  21.   end if
  22. end
  23.  
  24. on H8leave
  25.   cursor(-1)
  26.   sprite(176).visibility = 0
  27.   set the member of sprite 18 to "H8-leave"
  28.   set the locH of sprite 18 to 485
  29.   set the locV of sprite 18 to 387
  30.   sound(1).stop()
  31. end
  32.